home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / glass / glass.lha / GLASS / libtmc / fprdbl.c < prev    next >
C/C++ Source or Header  |  1991-02-08  |  1KB  |  44 lines
  1. /* 
  2.    Copyright (C) 1990 C van Reewijk, email: dutentb.uucp!reeuwijk
  3.  
  4. This file is part of GLASS.
  5.  
  6. GLASS is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. GLASS is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with GLASS; see the file COPYING.  If not, write to
  18. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19.  
  20. #include <stdio.h>
  21. #include "tmc.h"
  22. #include "config.h"
  23.  
  24. #ifndef DIGITS
  25. #define DIGITS 60
  26. #endif
  27.  
  28. void fprint_double_fixed( f, i )
  29.  FILE *f;
  30.  double i;
  31. {
  32.     if( i<0 )
  33.     fprintf( f, "(%.*g)", DIGITS, i );
  34.     else
  35.     fprintf( f, "%.*g", DIGITS, i );
  36. }
  37.  
  38. void fprint_double( f, i )
  39.  FILE *f;
  40.  double i;
  41. {
  42.     fprintf( f, "%g", i );
  43. }
  44.